﻿Imports System.Data.SqlClient
Public Class DF04_MR
    Inherits Conexion
    Dim cmd As New SqlCommand
    Public Function guardar(ByVal dts As Entidades.EF04Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F04MR")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@apenomacreedor1", dts.apenomacreedo1)
            cmd.Parameters.AddWithValue("@apenomapoderado1", dts.apenomaapoderad1)
            cmd.Parameters.AddWithValue("@dni1", dts.dnii1)
            cmd.Parameters.AddWithValue("@le1", dts.lee1)
            cmd.Parameters.AddWithValue("@lc1", dts.lcc1)
            cmd.Parameters.AddWithValue("@dniextr1", dts.dniext1)
            cmd.Parameters.AddWithValue("@pasap1", dts.pasa1)
            cmd.Parameters.AddWithValue("@numero1", dts.numer1)
            cmd.Parameters.AddWithValue("@autoridad1", dts.autorida2)
            cmd.Parameters.AddWithValue("@apenomacreedor2", dts.apenomacreedo2)
            cmd.Parameters.AddWithValue("@apenomapoderado2", dts.apenomaapoderad2)
            cmd.Parameters.AddWithValue("@dni2", dts.dnii2)
            cmd.Parameters.AddWithValue("@le2", dts.lee2)
            cmd.Parameters.AddWithValue("@lc2", dts.lcc2)
            cmd.Parameters.AddWithValue("@dniextr2", dts.dniext2)
            cmd.Parameters.AddWithValue("@pasap2", dts.pasa2)
            cmd.Parameters.AddWithValue("@numero2", dts.numer2)
            cmd.Parameters.AddWithValue("@autoridad2", dts.autorida2)
            cmd.Parameters.AddWithValue("@apenomcond", dts.apenompro)
            cmd.Parameters.AddWithValue("@solterocond", dts.solteropro)
            cmd.Parameters.AddWithValue("@casadocond", dts.casadopro)
            cmd.Parameters.AddWithValue("@viudocond", dts.viudopro)
            cmd.Parameters.AddWithValue("@divcond", dts.divpro)
            cmd.Parameters.AddWithValue("@numnupciacond", dts.numnupciapro)
            cmd.Parameters.AddWithValue("@apeapodcond", dts.apeapodpro)
            cmd.Parameters.AddWithValue("@dnicond", dts.dnipro)
            cmd.Parameters.AddWithValue("@lecond", dts.lepro)
            cmd.Parameters.AddWithValue("@lccond", dts.lcpro)
            cmd.Parameters.AddWithValue("@dniextrcond", dts.dniextrpro)
            cmd.Parameters.AddWithValue("@ciextrcond", dts.ciextrpro)
            cmd.Parameters.AddWithValue("@pasapcond", dts.pasappro)
            cmd.Parameters.AddWithValue("@numcond", dts.numpro)
            cmd.Parameters.AddWithValue("@autoridadcond", dts.autoridadpro)
            cmd.Parameters.AddWithValue("@apenomconycond", dts.apenompro)
            cmd.Parameters.AddWithValue("@apeapodconycond", dts.apeapodconypro)
            cmd.Parameters.AddWithValue("@dniconycond", dts.dniconypro)
            cmd.Parameters.AddWithValue("@leconycond", dts.dniconypro)
            cmd.Parameters.AddWithValue("@lcconycond", dts.lcconypro)
            cmd.Parameters.AddWithValue("@dniextrconycond", dts.dniextrconypro)
            cmd.Parameters.AddWithValue("@ciextrconycond", dts.ciextrconypro)
            cmd.Parameters.AddWithValue("@pasapconycond", dts.pasapconypro)
            cmd.Parameters.AddWithValue("@numconycond", dts.numconypro)
            cmd.Parameters.AddWithValue("@autoridadconycond", dts.autoridadconypro)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacion)
            cmd.Parameters.AddWithValue("@lugar", dts.luga)
            cmd.Parameters.AddWithValue("@diafecha", dts.diafechaa)
            cmd.Parameters.AddWithValue("@mesfecha", dts.mesfechaa)
            cmd.Parameters.AddWithValue("@añofecha", dts.añofechaa)
            cmd.Parameters.AddWithValue("@autorizacion", dts.autorizacio)
            cmd.Parameters.AddWithValue("@tiponumdoc", dts.tiponumdocc)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

    Public Function modificar(ByVal dts As Entidades.EF04Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_modificar_F04MR")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@apenomacreedor1", dts.apenomacreedo1)
            cmd.Parameters.AddWithValue("@apenomapoderado1", dts.apenomaapoderad1)
            cmd.Parameters.AddWithValue("@dni1", dts.dnii1)
            cmd.Parameters.AddWithValue("@le1", dts.lee1)
            cmd.Parameters.AddWithValue("@lc1", dts.lcc1)
            cmd.Parameters.AddWithValue("@dniextr1", dts.dniext1)
            cmd.Parameters.AddWithValue("@pasap1", dts.pasa1)
            cmd.Parameters.AddWithValue("@numero1", dts.numer1)
            cmd.Parameters.AddWithValue("@autoridad1", dts.autorida2)
            cmd.Parameters.AddWithValue("@apenomacreedor2", dts.apenomacreedo2)
            cmd.Parameters.AddWithValue("@apenomapoderado2", dts.apenomaapoderad2)
            cmd.Parameters.AddWithValue("@dni2", dts.dnii2)
            cmd.Parameters.AddWithValue("@le2", dts.lee2)
            cmd.Parameters.AddWithValue("@lc2", dts.lcc2)
            cmd.Parameters.AddWithValue("@dniextr2", dts.dniext2)
            cmd.Parameters.AddWithValue("@pasap2", dts.pasa2)
            cmd.Parameters.AddWithValue("@numero2", dts.numer2)
            cmd.Parameters.AddWithValue("@autoridad2", dts.autorida2)
            cmd.Parameters.AddWithValue("@apenomcond", dts.apenompro)
            cmd.Parameters.AddWithValue("@solterocond", dts.solteropro)
            cmd.Parameters.AddWithValue("@casadocond", dts.casadopro)
            cmd.Parameters.AddWithValue("@viudocond", dts.viudopro)
            cmd.Parameters.AddWithValue("@divcond", dts.divpro)
            cmd.Parameters.AddWithValue("@numnupciacond", dts.numnupciapro)
            cmd.Parameters.AddWithValue("@apeapodcond", dts.apeapodpro)
            cmd.Parameters.AddWithValue("@dnicond", dts.dnipro)
            cmd.Parameters.AddWithValue("@lecond", dts.lepro)
            cmd.Parameters.AddWithValue("@lccond", dts.lcpro)
            cmd.Parameters.AddWithValue("@dniextrcond", dts.dniextrpro)
            cmd.Parameters.AddWithValue("@ciextrcond", dts.ciextrpro)
            cmd.Parameters.AddWithValue("@pasapcond", dts.pasappro)
            cmd.Parameters.AddWithValue("@numcond", dts.numpro)
            cmd.Parameters.AddWithValue("@autoridadcond", dts.autoridadpro)
            cmd.Parameters.AddWithValue("@apenomconycond", dts.apenompro)
            cmd.Parameters.AddWithValue("@apeapodconycond", dts.apeapodconypro)
            cmd.Parameters.AddWithValue("@dniconycond", dts.dniconypro)
            cmd.Parameters.AddWithValue("@leconycond", dts.dniconypro)
            cmd.Parameters.AddWithValue("@lcconycond", dts.lcconypro)
            cmd.Parameters.AddWithValue("@dniextrconycond", dts.dniextrconypro)
            cmd.Parameters.AddWithValue("@ciextrconycond", dts.ciextrconypro)
            cmd.Parameters.AddWithValue("@pasapconycond", dts.pasapconypro)
            cmd.Parameters.AddWithValue("@numconycond", dts.numconypro)
            cmd.Parameters.AddWithValue("@autoridadconycond", dts.autoridadconypro)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacion)
            cmd.Parameters.AddWithValue("@lugar", dts.luga)
            cmd.Parameters.AddWithValue("@diafecha", dts.diafechaa)
            cmd.Parameters.AddWithValue("@mesfecha", dts.mesfechaa)
            cmd.Parameters.AddWithValue("@añofecha", dts.añofechaa)
            cmd.Parameters.AddWithValue("@autorizacion", dts.autorizacio)
            cmd.Parameters.AddWithValue("@tiponumdoc", dts.tiponumdocc)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

End Class
